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1-001 age 7 ait 9 ‘8 +38 PASRTL.S gaeie PAS YATES MAR; 1 = (1) 


TE = Return system date 
/ ; File: PASDATE.MAR Edit: $BL1001 


—MARARAARAABRARARAAASLASAALASAAALALAAALEL ESAS ELSES ERA REESE SESE REE RSE E EEE ERS E CECE 


Tt tg (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
® 
Se 
*® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
on OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. 2 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. « 
® 
® 
® 
® 
* 
® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains PASSDATE which returns the current system 
date as an 1i-character string by reference. 


ENVIRONMENT: Runs at any access mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 6-Nov-1980 
MODIFIED BY: 

1-001 - Original. SBL 6-Nov-1980 
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PASSDATE - Return system date y 4 01: AX/VM cro V04-00 Pa 

5-001 DECLARATIONS Pa} 984 1:80.25 PASH Te caeapatoATC MaR:1 O83) 
46 é; .SBTTL DECLARATIONS : 
48 ; LIBRARY MACRO CALLS: | : 
0 0 NONE | : 
000 ¢ : EXTERNAL DECLARATIONS: | ; 
000 54° -OSABL GBL ; Force all external symbols to be declared ; 
44 55 -EXTRN SYSSASCTIM ; Convert binary time to ASCII string : 
o008 3? ; MACROS: ; 
000 59: NONE ; 
0000 60; ; 
0000 61 ; EQUATED SYMBOLS: : 
0000 6¢ ; : 
0000 63; NONE ; 
0000 64 ; ; 
0000 65 ; OWN STORAGE: : 
0000 66: ; 
0000 «67: NONE ; 
0000 68: : 
9000 69 ; PSECT DECLARATIONS: 
00000000 «71° .PSECT _PASSCODE PIC, USR, CON, REL, LCL, SHR, - ; 
9000 rg EXE, RD, NOWRT. LONG | : 


PASSDATE 
1-001 


16-SEP-1984 91: 4:30 VAX/VMS ° 


m date o V04-00 
urn system date 66-SEP-1984 0:25 (CPASRTL. S 


acr 
RCJPASDATE .MAR; 1 


8 p oe -SBTTL PASSDATE = Return system date 
§ i ; FUNCTIONAL DESCRIPTION: 
000 79: This routine returns the current system date as dd=mmm- into 
0000 Bo : an 11 character string passed by reference ll 
Bb Hf ; CALLING SEQUENCE: 
0900 : : CALL PASSDATE (Date_string.wt.r) 
4 § ; FORMAL PARAMETERS: 
0000 8 ; Date_strin - ll-character string by reference 
Ef eappaaanbay er 
0000 91; 
0000 38 ; NONE 
0000 93 ; 
0000 94 ; IMPLICIT OUTPUTS: 
0000 95 ; 
0000 96 ; NONE 
0000 97; 
0000 98 ; ROUTINE VALUE: 
0000 99 ; 
0000 100 ; NONE 
0000 101; 
0000 13 ; SIDE EFFECTS: 
0000 103; 
0000 104; NONE 
0000 105; 
0000 106 ;-- 
0000 107 
0000 B05 198 -ENTRY PASSDATE, “M<> 3; Entry point 
04 AC DD 0002 110 PUSHL 4(AP) ; Address of string 
0B oD 0005 = 111 PUSHL #11 3 Length of string 
7E Dd4& 0007 16 CLRL -(SP) 3; CVTFLAG = 0 = return date 
7E 04 0009 = 11 CLRL -(SP) ; No TIMADR ; 
F8 AD 7F QOOB 114 PUSHAQ -8(FP) ; Address of TIMBUF descriptor 
7E D4 QOOE 115 LRL -(SP) : No returned TIMLEN 
00000000'GF 04 FB 0010 116 CALLS #4, G*SYSSASCTIM ; Get date 
64 0017 1117 RE 3; Return 
0018 118 
0018 119 


; End of module PASSDATE 
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PASSDATE - Return system date at StS 9 01: ga: 30 yore e o V04-00 Page 4 | 
Symbol table 66-SEP-1984 11:50:2 PASRTL.S SPASDATE .MAR: 1 (3), 
PASSDATE 00000000 ae 4 
SYSSASCTIM eeeeeeee 0 | 
! 
SSS De Oe eee + 
' Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes | 
- «ABS. 0000000 ( 0.) 69 ( 0.) NOPIC USR CON ABS L©L NOSHR NOEXE NORD NOWRT NOVEC BYTE 
PASSCODE 0000001 ( 24.) 1€ Dob PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
Gownueseoeseunsvecscooucs 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 1 00 +00: 00.08 0:00:01.33 
Command processing 7 0:00: 8-8 0:00:04.26 
Pass 74 00:00:00.35 es 
Symbol table sort 0 i So 4 00:00:00.00 
Pass 2 36 00:00: 3-5! 00:00:01.08 
Symbol table output 00:00:00.01 00:00:00.01 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 0 ba A 00:00:00.00 
Assembler run totals 198 00:00:01.38 00:00:07.88 


The working 3, Limit was 750 pages. 

1145 bytes { pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 2 non-local and 0 local symbols. 
119 source t A> were read in Pass 1, producing 11 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Sewer nee ecwo rere me wren emer $ 


Macro Library name Macros defined 
“S255$DUA28:(SYSLIBJSTARLET.MLB;200 SS 0. 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:PASDATE/OBJ=OBJ$:PASDATE MSRC$:PASDATE/UPDATE=(ENH$:PASDATE) 
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